home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / wtour / drawnbutton1.tcl < prev    next >
Encoding:
Text File  |  1995-06-29  |  472 b   |  21 lines
  1. #
  2. # a DrawnButton
  3. #
  4. # for this, we have to do Xlib-style drawing ourselves, which
  5. # should only be done in exposeCallback, and for which we need
  6. # graphics contexts.
  7.  
  8. xmDrawnButton .btn managed
  9. .btn exposeCallback show_text
  10. set gc1 [.btn getGC -foreground yellow -background green]
  11. set gc2 [.btn getGC -foreground blue -background pink]
  12.  
  13. proc show_text {} {
  14.   global gc1
  15.   global gc2
  16.  
  17.   .btn drawImageString $gc1 30 30 "hello"
  18.   .btn drawImageString $gc2 30 80 "world"
  19. }
  20.  
  21.